<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<title>hsm-statechart: hsm/hula/hula_lib.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
  $(document).ready(initResizable);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  <td id="projectlogo"><img alt="Logo" src="hsm-statechart.png"/></td>
  <td style="padding-left: 0.5em;">
   <div id="projectname">hsm-statechart
   &#160;<span id="projectnumber">0.5</span>
   </div>
   <div id="projectbrief">An easy to use hierarchical state machine for C and C++</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.1.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="pages.html"><span>Related&#160;Pages</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Structures</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>Globals</span></a></li>
    </ul>
  </div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
$(document).ready(function(){initNavTree('hula__lib_8c.html','');});
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Data Structures</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(6)"><span class="SelectionMark">&#160;</span>Enumerations</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(7)"><span class="SelectionMark">&#160;</span>Macros</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(8)"><span class="SelectionMark">&#160;</span>Pages</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

<div class="header">
  <div class="headertitle">
<div class="title">hula_lib.c</div>  </div>
</div><!--header-->
<div class="contents">
<a href="hula__lib_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160;</div>
<div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;<span class="preprocessor">#include &lt;<a class="code" href="hsm__machine_8h.html" title="Statemachine structures and functions.">hsm/hsm_machine.h</a>&gt;</span></div>
<div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;<span class="preprocessor">#include &lt;lua.h&gt;</span></div>
<div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;<span class="preprocessor">#include &lt;lauxlib.h&gt;</span></div>
<div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;</div>
<div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="hula_8h.html" title="Statemachine builder extensions for lua.">hula.h</a>&quot;</span> <span class="comment">// for build during new.</span></div>
<div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="hula__lib_8h.html" title="Implements lua wrappers for using hsm_machine in lua.">hula_lib.h</a>&quot;</span></div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="preprocessor">#include &quot;hula_types.h&quot;</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;<span class="preprocessor">#include &lt;<a class="code" href="hsm__builder_8h.html" title="Declarative interface for defining states.">hsm/builder/hsm_builder.h</a>&gt;</span> <span class="comment">// resolve needed for looking up top state names during new</span></div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;</div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="preprocessor">#include &lt;assert.h&gt;</span></div>
<div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;<span class="preprocessor">#include &lt;string.h&gt;</span></div>
<div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;</div>
<div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="preprocessor">#define HULA_REC_IDX 1</span></div>
<div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define HULA_EVENT_IDX 2</span></div>
<div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define HULA_PAYLOAD_IDX 3</span></div>
<div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define HULA_CHART_IDX 2</span></div>
<div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;<span class="preprocessor"></span></div>
<div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;<span class="comment"></span><span class="keyword">static</span> hula_machine_t* check_hula( lua_State* L, <span class="keywordtype">int</span> idx )</div>
<div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;{</div>
<div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;  <span class="keywordtype">void</span> * ud= luaL_checkudata( L, idx, <a class="code" href="hula__lib_8h.html#a363ecc475d7d1922b88ca2a18d912849" title="default name of the HULA_LIB&#39;s metatable">HULA_METATABLE</a> );</div>
<div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;  <span class="keywordflow">return</span> (hula_machine_t*) ud;</div>
<div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;}</div>
<div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;</div>
<div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;<span class="comment"></span><span class="keyword">static</span> <span class="keywordtype">int</span> pack_hula( lua_State * L, <span class="keywordtype">int</span> copyfrom, <span class="keywordtype">int</span> copyto )</div>
<div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160;{</div>
<div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;  <span class="keywordtype">int</span> count=0; </div>
<div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;  <span class="keywordtype">int</span> copy=copyfrom;</div>
<div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;  lua_newtable( L );</div>
<div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;  <span class="keywordflow">while</span>( copy&lt;=copyto ) {</div>
<div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;    lua_pushvalue( L, copy++ );</div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;    lua_rawseti( L, -2, ++count );</div>
<div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;  }</div>
<div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;  <span class="keywordflow">return</span> count;</div>
<div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;}</div>
<div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;</div>
<div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;<span class="comment"></span><span class="keyword">static</span> <span class="keywordtype">void</span> verify_chart( lua_State * L ) </div>
<div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;{</div>
<div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">char</span> * error= <span class="stringliteral">&quot;expected a chart containing one key:value pair; the top state and its definition.&quot;</span>;</div>
<div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;  <span class="keywordtype">int</span> table= lua_gettop(L);</div>
<div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;  <span class="keywordtype">int</span> tablelen= lua_objlen(L, table);</div>
<div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;  <span class="keywordflow">if</span> (tablelen) {</div>
<div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;    luaL_error(L, error);</div>
<div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;  }</div>
<div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;  lua_pushnil(L);</div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;  lua_next(L,table);</div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;  <span class="keywordflow">if</span> (!lua_istable(L,-1)) {</div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;    luaL_error(L, error);</div>
<div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;  }</div>
<div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;  lua_pop(L,1);</div>
<div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;  <span class="keywordflow">if</span> (lua_next(L,table)) {</div>
<div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160;    luaL_error(L, error);</div>
<div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;  }</div>
<div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;  lua_settop(L,table);</div>
<div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;}</div>
<div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;</div>
<div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;<span class="comment"></span><span class="keyword">static</span> <span class="keywordtype">int</span> hula_new(lua_State* L)</div>
<div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;{</div>
<div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;  <span class="keywordtype">int</span> param_table= 1;</div>
<div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;  <span class="keywordtype">int</span> <span class="keywordtype">id</span>=0;</div>
<div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;  hula_error err;</div>
<div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;  <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> init_state;</div>
<div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;</div>
<div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;  <span class="comment">// verify the input table</span></div>
<div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;  <span class="keywordtype">int</span> param_len= lua_objlen(L, param_table);</div>
<div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;  <span class="keywordflow">if</span> (!lua_istable(L,param_table)) {</div>
<div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;    luaL_error( L, <span class="stringliteral">&quot;hsm_statechart: expected a table for new()&quot;</span> );</div>
<div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;  }</div>
<div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;</div>
<div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;  <span class="comment">// get &amp; build the chart</span></div>
<div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;</div>
<div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;  <span class="comment">// if they passed a table of parameters, then the first element is the chart</span></div>
<div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;  <span class="keywordflow">if</span> (param_len) {</div>
<div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;    lua_rawgeti( L, param_table, 1 );</div>
<div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;  }</div>
<div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;  verify_chart( L );  <span class="comment">// doesn&#39;t return if it detects an erro</span></div>
<div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;  err= <a class="code" href="hula_8c.html#ab7c72adc2621b45e9da911e423672784" title="Create an hsm-statechart state from a lua state description.">HulaBuildState</a>( L, HULA_CHART_IDX, &amp;<span class="keywordtype">id</span> );</div>
<div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;  <span class="keywordflow">if</span> (err) {</div>
<div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;    luaL_error( L, err ); <span class="comment">// doesnt return</span></div>
<div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;  }      </div>
<div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;  <span class="keywordflow">if</span> (param_len) {</div>
<div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;    lua_pop( L,1 ); <span class="comment">// pop the chart ( if we fetched it from the param_table )</span></div>
<div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;  }</div>
<div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;</div>
<div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;  <span class="comment">// get init(ial) state</span></div>
<div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;  <span class="comment">//</span></div>
<div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;  lua_getfield( L, param_table, <span class="stringliteral">&quot;init&quot;</span> );</div>
<div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;</div>
<div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;  <span class="comment">// if they didn&#39;t specify one, that&#39;s cool: use the topstate as the inital sate</span></div>
<div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;  <span class="keywordflow">if</span> (!param_len || !lua_isstring( L, -1)) {</div>
<div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;    init_state= <a class="code" href="hsm__builder_8c.html#aee89776d61b3c812c2e1da067e3124da" title="Return a core hsm_state from an id.">hsmResolveId</a>( <span class="keywordtype">id</span> );</div>
<div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;  }</div>
<div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;  <span class="comment">// otherwise lookup the state</span></div>
<div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">char</span> * statename= lua_tostring( L, -1 );</div>
<div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;    init_state=<a class="code" href="hsm__builder_8c.html#a93916a77098a9337d6ca88fd4b0c45af" title="Return an hsm_state from a builder state.">hsmResolve</a>( statename );</div>
<div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;  }</div>
<div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;  lua_pop( L, 1 ); <span class="comment">// pop init</span></div>
<div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;</div>
<div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;  <span class="keywordflow">if</span> (!init_state) {</div>
<div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;    luaL_error(L, <span class="stringliteral">&quot;resolve error during init&quot;</span>);</div>
<div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;  }</div>
<div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;    hula_machine_t* hula;</div>
<div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;</div>
<div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;    <span class="comment">// get context:</span></div>
<div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;    <span class="keywordtype">int</span> ctx= LUA_REFNIL;</div>
<div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;    <span class="keywordflow">if</span> (param_len) { </div>
<div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;      lua_getfield( L, param_table, <span class="stringliteral">&quot;context&quot;</span> );</div>
<div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;      ctx= luaL_ref(L, LUA_REGISTRYINDEX);</div>
<div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;    }</div>
<div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160;</div>
<div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;    <span class="comment">//</span></div>
<div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;    <span class="comment">// create the machine</span></div>
<div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;    <span class="comment">//</span></div>
<div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;    hula= (hula_machine_t*) lua_newuserdata( L, <span class="keyword">sizeof</span>(hula_machine_t) );</div>
<div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;    <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( hula );</div>
<div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;    <span class="keywordflow">if</span> (hula) {</div>
<div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;      <span class="comment">// setup the machine:</span></div>
<div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;      memset( hula, 0, <span class="keyword">sizeof</span>(hula_machine_t) );</div>
<div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;      hula-&gt;topstate= id;</div>
<div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;      hula-&gt;ctx.L= L;</div>
<div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;      hula-&gt;ctx.lua_ref= ctx;          </div>
<div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;      luaL_getmetatable( L, <a class="code" href="hula__lib_8h.html#a363ecc475d7d1922b88ca2a18d912849" title="default name of the HULA_LIB&#39;s metatable">HULA_METATABLE</a> );</div>
<div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;      lua_setmetatable( L, -2 );</div>
<div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;</div>
<div class="line"><a name="l00175"></a><span class="lineno">  175</span>&#160;      <span class="comment">//</span></div>
<div class="line"><a name="l00176"></a><span class="lineno">  176</span>&#160;      <span class="comment">// start the machine</span></div>
<div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;      <span class="comment">//</span></div>
<div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;      <span class="keywordflow">if</span> (<a class="code" href="hsm__machine_8c.html#ac3c05a1d7215bdf5f9e4132a26dafca2" title="Initialize a statemachine with a context stack to its default values.">HsmMachineWithContext</a>( &amp;hula-&gt;hsm, &amp;hula-&gt;ctx.core )) {</div>
<div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;        hula-&gt;hsm.core.flags|= HSM_FLAGS_HULA;</div>
<div class="line"><a name="l00180"></a><span class="lineno">  180</span>&#160;        </div>
<div class="line"><a name="l00181"></a><span class="lineno">  181</span>&#160;        <span class="comment">// create the event table with &quot;init&quot; as the event name</span></div>
<div class="line"><a name="l00182"></a><span class="lineno">  182</span>&#160;        lua_newtable( L );</div>
<div class="line"><a name="l00183"></a><span class="lineno">  183</span>&#160;        lua_pushstring( L,<span class="stringliteral">&quot;init&quot;</span> );</div>
<div class="line"><a name="l00184"></a><span class="lineno">  184</span>&#160;        lua_rawseti( L, -2, 1 );</div>
<div class="line"><a name="l00185"></a><span class="lineno">  185</span>&#160;        </div>
<div class="line"><a name="l00186"></a><span class="lineno">  186</span>&#160;        <span class="comment">// start the machine</span></div>
<div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;        <span class="keywordflow">if</span> (!<a class="code" href="hsm__machine_8c.html#a7117ece3956d53414f80e1a340161f8a" title="Start a machine.">HsmStart</a>( (<a class="code" href="hsm__machine_8h.html#structhsm__machine__rec" title="The statemachine object.">hsm_machine</a>) &amp;hula-&gt;hsm, init_state )) {</div>
<div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;          luaL_error( L, <span class="stringliteral">&quot;couldnt start machine&quot;</span>);</div>
<div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;        }            </div>
<div class="line"><a name="l00190"></a><span class="lineno">  190</span>&#160;        lua_pop( L, 1 ); <span class="comment">// remove the event table</span></div>
<div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;      }            </div>
<div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;    }          </div>
<div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;  }        </div>
<div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;  <span class="keywordflow">return</span> 1; </div>
<div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;}</div>
<div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;</div>
<div class="line"><a name="l00202"></a><span class="lineno">  202</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> hula_signal(lua_State* L)</div>
<div class="line"><a name="l00203"></a><span class="lineno">  203</span>&#160;{</div>
<div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;  hsm_bool okay= <a class="code" href="hsm__types_8h.html#a661d07d1e0324624dd94942951801df4" title="0">HSM_FALSE</a>;</div>
<div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;  hula_machine_t* hula= check_hula(L, HULA_REC_IDX);</div>
<div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;  <span class="keywordflow">if</span> (hula) {</div>
<div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">char</span> * event_name= luaL_checkstring(L, HULA_EVENT_IDX);</div>
<div class="line"><a name="l00208"></a><span class="lineno">  208</span>&#160;    <span class="keywordflow">if</span> (event_name) {</div>
<div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;      pack_hula( L, HULA_EVENT_IDX, lua_gettop(L) );</div>
<div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;      okay= <a class="code" href="hsm__machine_8c.html#a2e5511e0812b7613e3d1e496908bc8d0" title="Send the passed event to the machine.">HsmSignalEvent</a>( (<a class="code" href="hsm__machine_8h.html#structhsm__machine__rec" title="The statemachine object.">hsm_machine</a>) &amp;hula-&gt;hsm, 0 );</div>
<div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;    }</div>
<div class="line"><a name="l00212"></a><span class="lineno">  212</span>&#160;  }    </div>
<div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;  lua_pushboolean( L, okay );</div>
<div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;}</div>
<div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;</div>
<div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> hula_states(lua_State *L)</div>
<div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;{</div>
<div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;  <span class="keywordtype">int</span> count=0;</div>
<div class="line"><a name="l00225"></a><span class="lineno">  225</span>&#160;  hula_machine_t* hula= check_hula(L,HULA_REC_IDX);</div>
<div class="line"><a name="l00226"></a><span class="lineno">  226</span>&#160;  <span class="keywordflow">if</span> (hula) {</div>
<div class="line"><a name="l00227"></a><span class="lineno">  227</span>&#160;    <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> state;</div>
<div class="line"><a name="l00228"></a><span class="lineno">  228</span>&#160;    <span class="keywordflow">for</span> ( state= hula-&gt;hsm.core.current; state; state=state-&gt;<a class="code" href="hsm__state_8h.html#aa4980a3eab7184813f0cd0a98a201fcb" title="parent of this state">parent</a>, ++count ) {</div>
<div class="line"><a name="l00229"></a><span class="lineno">  229</span>&#160;      lua_pushstring( L, state-&gt;<a class="code" href="hsm__state_8h.html#a8f8f80d37794cde9472343e4487ba3eb" title="name of the state ( useful for debugging )">name</a> );</div>
<div class="line"><a name="l00230"></a><span class="lineno">  230</span>&#160;    }</div>
<div class="line"><a name="l00231"></a><span class="lineno">  231</span>&#160;  }    </div>
<div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;  <span class="keywordflow">return</span> count;</div>
<div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;}</div>
<div class="line"><a name="l00234"></a><span class="lineno">  234</span>&#160;</div>
<div class="line"><a name="l00242"></a><span class="lineno">  242</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> hula_is_running(lua_State *L)</div>
<div class="line"><a name="l00243"></a><span class="lineno">  243</span>&#160;{</div>
<div class="line"><a name="l00244"></a><span class="lineno">  244</span>&#160;  hsm_bool okay= <a class="code" href="hsm__types_8h.html#a661d07d1e0324624dd94942951801df4" title="0">HSM_FALSE</a>;</div>
<div class="line"><a name="l00245"></a><span class="lineno">  245</span>&#160;  hula_machine_t* hula= check_hula(L,HULA_REC_IDX);</div>
<div class="line"><a name="l00246"></a><span class="lineno">  246</span>&#160;  <span class="keywordflow">if</span> (hula) {</div>
<div class="line"><a name="l00247"></a><span class="lineno">  247</span>&#160;    okay= <a class="code" href="hsm__machine_8c.html#a893207a7a8345aad604bd01a84ee9eb4" title="Determine if a machine has been started, and has not reached a terminal, nor an error state...">HsmIsRunning</a>( (<a class="code" href="hsm__machine_8h.html#structhsm__machine__rec" title="The statemachine object.">hsm_machine</a>) &amp;hula-&gt;hsm );</div>
<div class="line"><a name="l00248"></a><span class="lineno">  248</span>&#160;  }    </div>
<div class="line"><a name="l00249"></a><span class="lineno">  249</span>&#160;  lua_pushboolean( L, okay );</div>
<div class="line"><a name="l00250"></a><span class="lineno">  250</span>&#160;  <span class="keywordflow">return</span> 1;</div>
<div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;}</div>
<div class="line"><a name="l00252"></a><span class="lineno">  252</span>&#160;</div>
<div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> hula_tostring(lua_State *L)</div>
<div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;{</div>
<div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;  <span class="keywordtype">int</span> ret=0;</div>
<div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;  hula_machine_t* hula= check_hula(L,HULA_REC_IDX);</div>
<div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;  <span class="keywordflow">if</span> (hula) {</div>
<div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;    <span class="comment">// hrmm... breaking into the lower level api....</span></div>
<div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;    <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> topstate= <a class="code" href="hsm__builder_8c.html#aee89776d61b3c812c2e1da067e3124da" title="Return a core hsm_state from an id.">hsmResolveId</a>( hula-&gt;topstate );</div>
<div class="line"><a name="l00267"></a><span class="lineno">  267</span>&#160;    lua_pushfstring(L, <span class="stringliteral">&quot;HsmStatechart: %s:%s&quot;</span>, </div>
<div class="line"><a name="l00268"></a><span class="lineno">  268</span>&#160;            topstate ? topstate-&gt;<a class="code" href="hsm__state_8h.html#a8f8f80d37794cde9472343e4487ba3eb" title="name of the state ( useful for debugging )">name</a> : <span class="stringliteral">&quot;nil&quot;</span>,</div>
<div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;            hula-&gt;hsm.core.current ? hula-&gt;hsm.core.current-&gt;name : <span class="stringliteral">&quot;nil&quot;</span> );</div>
<div class="line"><a name="l00270"></a><span class="lineno">  270</span>&#160;    ret=1;                    </div>
<div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;  }    </div>
<div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;  <span class="keywordflow">return</span> ret;</div>
<div class="line"><a name="l00273"></a><span class="lineno">  273</span>&#160;}</div>
<div class="line"><a name="l00274"></a><span class="lineno">  274</span>&#160;</div>
<div class="line"><a name="l00275"></a><span class="lineno">  275</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;<span class="comment">// Registration</span></div>
<div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00278"></a><span class="lineno"><a class="code" href="hula__lib_8c.html#a2396e0539ec5effb693eb5b2e7a7a478">  278</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="hula_8h.html#a9e5e15ea9c174d372fcd5b780bca9f9f" title="Same as HulaRegister but allows user code to rename &quot;hsm_statechart&quot; to something else...">HulaNamedRegister</a>( lua_State* L, <span class="keyword">const</span> <span class="keywordtype">char</span> * type, <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> is_event )</div>
<div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;{</div>
<div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;  <span class="keyword">static</span> luaL_Reg hula_class_fun[]= {</div>
<div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;    { <span class="stringliteral">&quot;new&quot;</span>, hula_new },</div>
<div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;    { 0 }</div>
<div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;  };</div>
<div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;</div>
<div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;  <span class="keyword">static</span> luaL_Reg hula_member_fun[]= {</div>
<div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;    { <span class="stringliteral">&quot;__tostring&quot;</span>, hula_tostring },</div>
<div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;    { <span class="stringliteral">&quot;signal&quot;</span>, hula_signal },</div>
<div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;    { <span class="stringliteral">&quot;states&quot;</span>, hula_states },</div>
<div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;    { <span class="stringliteral">&quot;is_running&quot;</span>, hula_is_running },</div>
<div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;    { 0 }</div>
<div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;  };</div>
<div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;</div>
<div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;  <span class="comment">// an object with metatable, when it sees it doesn&#39;t have t[k] uses __index to see what to do</span></div>
<div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;  <span class="comment">// __index could have a function, value, or table; </span></div>
<div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;  <span class="comment">// tables say: here&#39;s a table of names and functions for you. </span></div>
<div class="line"><a name="l00296"></a><span class="lineno">  296</span>&#160;  <span class="comment">// all meta methods start with __, http://lua-users.org/wiki/MetatableEvents</span></div>
<div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;  luaL_newmetatable( L, <a class="code" href="hula__lib_8h.html#a363ecc475d7d1922b88ca2a18d912849" title="default name of the HULA_LIB&#39;s metatable">HULA_METATABLE</a> );  <span class="comment">// registry.HULA_METATABLE= {}</span></div>
<div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;  </div>
<div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;  lua_pushstring( L, <a class="code" href="hula__lib_8h.html#a807b7f094e7f3a6092e03611b081f209" title="name inside the metatable of the user event matching function">HULA_EVENT_TEST</a> );</div>
<div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;  lua_pushlightuserdata( L, is_event );</div>
<div class="line"><a name="l00301"></a><span class="lineno">  301</span>&#160;  lua_settable( L, -3 );</div>
<div class="line"><a name="l00302"></a><span class="lineno">  302</span>&#160;</div>
<div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;  lua_pushstring( L, <span class="stringliteral">&quot;__index&quot;</span> ); </div>
<div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;  lua_pushvalue( L, -2 );  <span class="comment">// copy the metatable to the top of the stack</span></div>
<div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;  lua_settable( L, -3 );  <span class="comment">// metatable.__index== metatable;</span></div>
<div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;  </div>
<div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;  luaL_register( L, NULL, hula_member_fun );  <span class="comment">// use the table @ top (metatable), and assign the passed named c-functions</span></div>
<div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;  luaL_register( L, type, hula_class_fun );   <span class="comment">// create a table in the registry @ &#39;type&#39; with the passed named c-functions</span></div>
<div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;  lua_pop(L,2);</div>
<div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;}</div>
<div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;</div>
<div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00313"></a><span class="lineno"><a class="code" href="hula__lib_8c.html#a75b6fe2b4a116538cadf632fda800470">  313</a></span>&#160;<span class="keywordtype">void</span> <a class="code" href="hula_8h.html#a6d08a594ed624d9968b935489603bc33" title="Create the &quot;hsm_statechart&quot; type for using hierarchical statemachines in lua.">HulaRegister</a>( lua_State* L, <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> is_event  )</div>
<div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;{</div>
<div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;  <a class="code" href="hula_8h.html#a9e5e15ea9c174d372fcd5b780bca9f9f" title="Same as HulaRegister but allows user code to rename &quot;hsm_statechart&quot; to something else...">HulaNamedRegister</a>( L, <a class="code" href="hula__lib_8h.html#a8da652ae356bd2fbb2f5315eb1d7035e" title="default name of the type within lua">HULA_LIB</a>, is_event );</div>
<div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;}</div>
<div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;</div>
<div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;<span class="comment">// for luarocks</span></div>
<div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;<span class="keywordtype">void</span> luaopen_hsm_statechart( lua_State* L )</div>
<div class="line"><a name="l00321"></a><span class="lineno">  321</span>&#160;{</div>
<div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;  <span class="comment">// this leaks </span></div>
<div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;  <span class="comment">// it might be interesting to determine:</span></div>
<div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;  <span class="comment">// can you put a user data in the registry and get a gc when the lua state is destroyed?</span></div>
<div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;  <span class="keywordflow">if</span> (!<a class="code" href="hsm__builder_8c.html#aee7b062ccc31bc4305f2bccc57e12438" title="Builder initialization.">hsmStartup</a>()) {</div>
<div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;    luaL_error(L, <span class="stringliteral">&quot;luaopen_hsm_statechart: unknown error&quot;</span> );</div>
<div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;  }</div>
<div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;  <a class="code" href="hula_8h.html#a6d08a594ed624d9968b935489603bc33" title="Create the &quot;hsm_statechart&quot; type for using hierarchical statemachines in lua.">HulaRegister</a>(L,NULL);</div>
<div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;}</div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="dir_6c36b64852547327283732128225c9d7.html">hsm</a></li><li class="navelem"><a class="el" href="dir_9659424d7ed6dfd520a332e018c4f96c.html">hula</a></li><li class="navelem"><a class="el" href="hula__lib_8c.html">hula_lib.c</a></li>
    <li class="footer">Generated on Sat Jul 7 2012 22:48:11 for hsm-statechart by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.1.1 </li>
  </ul>
</div>
</body>
</html>
